-- card: 2980 from stack: in
-- bmap block id: 2234
-- flags: 4000
-- background id: 2766
-- name: Home
----- HyperTalk script -----
on openCard

  put the long date into card field "loc date"
end openCard

on idle
  put the time into card field "Time"
  pass idle
end idle



-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=126 top=318 right=334 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=377 top=240 right=288 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
  visual effect zoom open slow
  domenu Open Stack...

end mouseUp



-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=50 top=303 right=319 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: loc date


-- part 22 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=376 top=95 right=151 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1006 / 1006
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Finder
----- HyperTalk script -----
on mouseUp
  DoMenu Quit HyperCard
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=377 top=194 right=241 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Card
----- HyperTalk script -----
on mouseUp
  DoMenu "Print Card"
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=437 top=20 right=48 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go to stack "Help"
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=377 top=150 right=195 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Area Codes
----- HyperTalk script -----
on mouseUp
  go to stack "Phantom Stack I:BBSs"
end mouseUp



-- part contents for card part 1
----- text -----
21:37

-- part contents for card part 16
----- text -----
Friday, November 27, 1987